دسترسی و کار با فایل های آفیس در اکسس
امروز می خواهیم در باره این صحبت کنیم که چطور می توانیم کاری کنیم که با فایل های آفیس در اکسس دسترسی داشته باشیم.
بعنوان مثال فرض کنید که یک فرم داریم که بر روی این فرم ۳ دکمه قرار دارد .
قرار است با کلیک بر روی هر کدام از این دکمه ها متناسب با نامی که بر روی آن قرار دارد نرم افزار و فایل مربوط به آن برای ما باز شود .
خوب برای این کار چند راهکار وجود دارد .
یکی از آنها این است که بیاییم از قابلیتی به نام فایل دیالوگها استفاده کنیم.
یک فایل دیالوگ این امکان را به ما می دهد که لیستی از فایل ها و برنامه هایی را که قبلا ایجاد شده است را در اختیار کاربر قرار دهیم .
در انتها هم کاربر می تواند بر روی فایل مورد نظر کلیک کرده و آن را اجرا کند.
در خصوص فایل دیالوگ ها ما قبلا بطور مفصل در مطلب جداگانه ای صحبت کردیم.
برای دسترسی و مشاهده نحوه کار با این قابلیت می توانید از لینک زیر استفاده کنید .
مطلب مرتبط : آشنایی و کار با فایل دیالوگ ها .
اما در اینجا کاری که می خواهیم انجام دهیم این است که فرآیند باز کردن فایل ها را از داخل نرم افزار اکسس و فقط با کلیک کردن بر روی یک دکمه انجام دهیم .
برای این کار هم قاعدتا باید به سراغ کدنویسی VBA برویم .
بنابراین با ما همراه باشید .
مراحل استفاده از فایل های آفیس در اکسس
ابتدا به سراغ دکمه مربوط به Excel خود می رویم .
می خواهیم وقتی که کاربر بر روی این دکمه کلیک می کند نرم افزار اکسل بصورت خودکار اجرا شود.
اما قبل از اینکه به سراغ کدنویسی خود برویم باید فایل کتابخانه مربوط به کلاس اکسل را به برنامه خود معرفی کنیم .
برای این کار باید به منوی Tools رفته گزینه References را انتخاب کنیم .
با این کار پنجره زیر برای شما باز می شود .
در این پنجره گزینه ای را که مشخص شده است را انتخاب و تیک آن را فعال کنید .
یک مطلب خواندنی : فرمت سفارشی در اکسس با یک مثال کاربردی
با این کار نرم افزار اکسس برنامه اکسل را به عنوان یک شی می شناسد و می تواند با آن ارتباط برقرار کند .
حالا باید به سراغ کد نویسی در دکمه مورد نظر خود برویم .
خوب برای این کار به سراغ رویداد کلیک این دکمه می رویم و شروع به کد نویسی می کنیم .
برای شروع از کدهای زیر استفاده می کنیم .
()Private Sub Command0_Click Dim appexcel As Excel.Application Dim wb As Excel.workbook End Sub
در اینجا ما دو متغیر ایجاد کردیم .
متغیر اول با نام appexcel و نوع آن را از نوع برنامه کاربردی اکسل قرار دادیم .
متغیر دوم هم به نام wb و نوع آن را از نوع شی workbook تعیین کردیم .
حالا باید به سراغ مقدار دهی به این متغیرها برویم .
اول متغیر appexcel را مقدار دهی می کنیم .
برای این منظور از کدهای زیر استفاده می کنیم .
("Set appexcel = CreateObject("excel.application.
ما در اینجا با استفاده از متد creatobject یک برنامه کاربردی از نوع اکسل را ایجاد می کنیم و آن را در داخل متغیر خود قرار دادیم .
حالا به سراغ متغیر بعدی خود یعنی wb می رویم .
می خواهیم این متغیر را نیز مقدار دهی کنیم .
برای این منظور از کدهای زیر استفاده می کنیم .
("Set wb = appexcel.Workbooks.Open("C:\Users\my-pc\Desktop\softpluse.xlsx
ما در اینجا دو کار را بطور همزمان انجام می دهیم .
اول اینکه با استفاده ز دستور set متغیر خود را مقدار دهی می کنیم .
در قدم دوم با استفاده از متد Open یک آدرس فایل را در اختیار برنامه قرار می دهیم .
این خط از کد آدرس مورد نظر را خوانده و فایلی را که در قالب اکسل و در انتهای این آدرس قرار دارد را برای ما باز خواهد کرد .
اما اگر این کدها را تا به اینجا اجرا کنیم اتفاقی رخ نخواهد داد .
یعنی ما انتظار داریم که برنامه این کدها را خوانده و فایل مورد نظر را برای ما باز کند .
اما این اتفاق برای ما نمی افتد . چرا؟
واقعیت این است که این کدها تا به اینجا به درستی عمل کرده و فایل مورد نظر ما را نیز پیدا کرده و در حافظه رایانه ما لود می کند .
اما این فایل را برای ما به نمایش نمی گذارد مگر اینکه از قطعه کد زیر استفاده کنیم .
appexcel.Visible = True
این خط از کد باعث می شود که فایل مورد نظر از حافظه رایانه خوانده شده و بر روی مانیتور ما نمایش داده شود .
مجموعه کدهایی که تا به اینجا استفاده کردیم به قرار زیر است .
()Sub openfile Dim appexcel As Excel.Application Dim wb As Workbook ("Set appexcel = CreateObject("excel.application ("Set wb = appexcel.Workbooks.Open("C:\Users\my-pc\Desktop\softpluse.xlsx appexcel.Visible = True End Sub
نکته مهم در این خط از کدها مربوط به خط شماره ۱۰ می باشد .
در این خط از کد باید دقت کرد که آدرس فایل مورد نظر ما به درستی وارد شده و همچنین فرمت فایل مورد نظر به درستی وارد شده باشد .
مراحل استفاده از فایل های Word در اکسس
حالا می خواهیم به سراغ استفاده از فایل های word برویم.
می خواهیم وقتی کاربر بر روی دکمه مورد نظر کلیک کرد بطور خودکار فایل مورد نظر ما باز شود .
برای این کار ابتدا باید کتابخانه مربوط به نرم افزار Word را به برنامه معرفی کنیم .
مشابه روش قبلی کادر References را باز کرده تیک گزینه نمایش داده شده در تصویر زیر را فعال می کنیم .
حالا به سراغ رویداد کلیک دکمه خود می شویم .
در ابتدا متغیر زیر را تعریف می کنیم .
Dim WordDoc As Object
در اینجا یک متغیر تعریف و آن را از نوع Object تعریف کرده ایم .
در مرحله بعدی متغیر خود را مقدار دهی می کنیم .
برای این منظور از کد زیر استفاده می کنیم .
("Set WordDoc = CreateObject("Word.Application
در اینجا با استفاده از متد Createobject شی Word را ایجاد می کنیم .
حالا باید این شی را برای کاربر قابل مشاهده کنیم .
برای این منظور از کد زیر استفاده می کنیم .
WordDoc.Visible = True
اکنون باید فایل مورد نظر خود را به برنامه معرفی کنیم .
برای این منظور کد زیر را وارد می کنیم .
"WordDoc.Documents.Open "C:\Users\shahr-pc\Desktop\Softpluse.docx
بعد از طی تمامی این مراحل و اجرای کدها مشاهده خواهید کرد که فایل مورد نظر ما برای کاربر به نمایش در خواهد آمد .
مجموعه کدهایی که تا به اینجا نوشتیم در قالب یک روال بصورت زیر هستند .
()Sub openfile Dim WordDoc As Object ("Set WordDoc = CreateObject("Word.Application WordDoc.Visible = True "WordDoc.Documents.Open "C:\Users\shahr-pc\Desktop\Softpluse.docx End Sub
اینها روش هایی بود که با کمک آنها توانستیم فایل های آفیس در اکسس مورد نظر خود را که در قالب اکسل و یا Word بودند را اجرا کنیم .
برای مشاهده ترفندهای کار با نرم افزارهای افیس از شما دعوت می کنیم که به صفحه اینستاگرام ما مراجعه کنید .
برای این کار کافی است بر روی تصویر زیر کلیک کنید . .
دیدگاهتان را بنویسید